/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / add-log.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 30 3a 35 | 37 20 31 39 39 35 0a 3b | 14:10:5|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 61 |/lisp/pa|ckages/a|
|00000090| 64 64 2d 6c 6f 67 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |dd-log.e|l.;;; em|
|000000a0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 31 |acs vers|ion 19.1|
|000000b0| 33 20 58 45 6d 61 63 73 | 20 4c 75 63 69 64 2e 0a |3 XEmacs| Lucid..|
|000000c0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000d0| 73 69 6f 6e 20 32 2e 32 | 35 3b 20 31 2d 53 65 70 |sion 2.2|5; 1-Sep|
|000000e0| 2d 39 34 2e 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |-94..;;;| optimiz|
|000000f0| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|00000100| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|00000110| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|00000120| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000130| 61 63 73 20 31 38 2e 0a | 0a 28 69 66 20 28 61 6e |acs 18..|.(if (an|
|00000140| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000150| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000170| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000180| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|00000190| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|000001a0| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|000001b0| 22 31 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"19"))).|    (err|
|000001c0| 6f 72 20 22 54 68 69 73 | 20 66 69 6c 65 20 77 61 |or "This| file wa|
|000001d0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001e0| 6d 61 63 73 20 31 39 2e | 22 29 29 0a 0a 28 64 65 |macs 19.|"))..(de|
|000001f0| 66 76 61 72 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |fvar cha|nge-log-|
|00000200| 64 65 66 61 75 6c 74 2d | 6e 61 6d 65 20 6e 69 6c |default-|name nil|
|00000210| 20 22 5c 0a 2a 4e 61 6d | 65 20 6f 66 20 61 20 63 | "\.*Nam|e of a c|
|00000220| 68 61 6e 67 65 20 6c 6f | 67 20 66 69 6c 65 20 66 |hange lo|g file f|
|00000230| 6f 72 20 5c 5c 5b 61 64 | 64 2d 63 68 61 6e 67 65 |or \\[ad|d-change|
|00000240| 2d 6c 6f 67 2d 65 6e 74 | 72 79 5d 2e 22 29 0a 28 |-log-ent|ry].").(|
|00000250| 64 65 66 76 61 72 20 61 | 64 64 2d 6c 6f 67 2d 63 |defvar a|dd-log-c|
|00000260| 75 72 72 65 6e 74 2d 64 | 65 66 75 6e 2d 66 75 6e |urrent-d|efun-fun|
|00000270| 63 74 69 6f 6e 20 6e 69 | 6c 20 22 5c 0a 2a 49 66 |ction ni|l "\.*If|
|00000280| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 66 75 6e 63 74 69 | non-nil|, functi|
|00000290| 6f 6e 20 74 6f 20 67 75 | 65 73 73 20 6e 61 6d 65 |on to gu|ess name|
|000002a0| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 66 75 6e 63 | of curr|ent func|
|000002b0| 74 69 6f 6e 20 66 72 6f | 6d 20 73 75 72 72 6f 75 |tion fro|m surrou|
|000002c0| 6e 64 69 6e 67 20 74 65 | 78 74 2e 0a 5c 5c 5b 61 |nding te|xt..\\[a|
|000002d0| 64 64 2d 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 65 6e |dd-chang|e-log-en|
|000002e0| 74 72 79 5d 20 63 61 6c | 6c 73 20 74 68 69 73 20 |try] cal|ls this |
|000002f0| 66 75 6e 63 74 69 6f 6e | 20 28 69 66 20 6e 69 6c |function| (if nil|
|00000300| 2c 20 60 61 64 64 2d 6c | 6f 67 2d 63 75 72 72 65 |, `add-l|og-curre|
|00000310| 6e 74 2d 64 65 66 75 6e | 27 0a 69 6e 73 74 65 61 |nt-defun|'.instea|
|00000320| 64 29 20 77 69 74 68 20 | 6e 6f 20 61 72 67 75 6d |d) with |no argum|
|00000330| 65 6e 74 73 2e 20 20 49 | 74 20 72 65 74 75 72 6e |ents.  I|t return|
|00000340| 73 20 61 20 73 74 72 69 | 6e 67 20 6f 72 20 6e 69 |s a stri|ng or ni|
|00000350| 6c 20 69 66 20 69 74 20 | 63 61 6e 6e 6f 74 20 67 |l if it |cannot g|
|00000360| 75 65 73 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |uess.").|(defvar |
|00000370| 61 64 64 2d 6c 6f 67 2d | 66 75 6c 6c 2d 6e 61 6d |add-log-|full-nam|
|00000380| 65 20 6e 69 6c 20 22 5c | 0a 2a 46 75 6c 6c 20 6e |e nil "\|.*Full n|
|00000390| 61 6d 65 20 6f 66 20 75 | 73 65 72 2c 20 66 6f 72 |ame of u|ser, for|
|000003a0| 20 69 6e 63 6c 75 73 69 | 6f 6e 20 69 6e 20 43 68 | inclusi|on in Ch|
|000003b0| 61 6e 67 65 4c 6f 67 20 | 64 61 69 6c 79 20 68 65 |angeLog |daily he|
|000003c0| 61 64 65 72 73 2e 0a 54 | 68 69 73 20 64 65 66 61 |aders..T|his defa|
|000003d0| 75 6c 74 73 20 74 6f 20 | 74 68 65 20 76 61 6c 75 |ults to |the valu|
|000003e0| 65 20 72 65 74 75 72 6e | 65 64 20 62 79 20 74 68 |e return|ed by th|
|000003f0| 65 20 60 75 73 65 72 2d | 66 75 6c 6c 2d 6e 61 6d |e `user-|full-nam|
|00000400| 65 27 20 66 75 6e 63 74 | 69 6f 6e 2e 22 29 0a 28 |e' funct|ion.").(|
|00000410| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ac 83 c1 20 |byte-cod|e ".... |
|00000420| 10 c1 87 22 20 5b 61 64 | 64 2d 6c 6f 67 2d 66 75 |..." [ad|d-log-fu|
|00000430| 6c 6c 2d 6e 61 6d 65 20 | 75 73 65 72 2d 66 75 6c |ll-name |user-ful|
|00000440| 6c 2d 6e 61 6d 65 5d 20 | 31 29 0a 28 64 65 66 76 |l-name] |1).(defv|
|00000450| 61 72 20 61 64 64 2d 6c | 6f 67 2d 6d 61 69 6c 69 |ar add-l|og-maili|
|00000460| 6e 67 2d 61 64 64 72 65 | 73 73 20 6e 69 6c 20 22 |ng-addre|ss nil "|
|00000470| 5c 0a 2a 45 6c 65 63 74 | 72 6f 6e 69 63 20 6d 61 |\.*Elect|ronic ma|
|00000480| 69 6c 20 61 64 64 72 65 | 73 73 20 6f 66 20 75 73 |il addre|ss of us|
|00000490| 65 72 2c 20 66 6f 72 20 | 69 6e 63 6c 75 73 69 6f |er, for |inclusio|
|000004a0| 6e 20 69 6e 20 43 68 61 | 6e 67 65 4c 6f 67 20 64 |n in Cha|ngeLog d|
|000004b0| 61 69 6c 79 20 68 65 61 | 64 65 72 73 2e 0a 54 68 |aily hea|ders..Th|
|000004c0| 69 73 20 64 65 66 61 75 | 6c 74 73 20 74 6f 20 74 |is defau|lts to t|
|000004d0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 60 75 73 65 |he value| of `use|
|000004e0| 72 2d 6d 61 69 6c 2d 61 | 64 64 72 65 73 73 27 2e |r-mail-a|ddress'.|
|000004f0| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |").(byte|-code ".|
|00000500| ac 82 09 10 c2 c3 4d 87 | 22 20 5b 61 64 64 2d 6c |......M.|" [add-l|
|00000510| 6f 67 2d 6d 61 69 6c 69 | 6e 67 2d 61 64 64 72 65 |og-maili|ng-addre|
|00000520| 73 73 20 75 73 65 72 2d | 6d 61 69 6c 2d 61 64 64 |ss user-|mail-add|
|00000530| 72 65 73 73 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |ress cha|nge-log-|
|00000540| 6e 61 6d 65 20 23 5b 6e | 69 6c 20 22 08 ae 8f 09 |name #[n|il "....|
|00000550| c2 3d ab 82 c3 87 09 c4 | 3d ab 82 c5 87 c6 87 22 |.=......|=......"|
|00000560| 20 5b 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 64 65 66 | [change|-log-def|
|00000570| 61 75 6c 74 2d 6e 61 6d | 65 20 73 79 73 74 65 6d |ault-nam|e system|
|00000580| 2d 74 79 70 65 20 76 61 | 78 2d 76 6d 73 20 22 24 |-type va|x-vms "$|
|00000590| 43 48 41 4e 47 45 5f 4c | 4f 47 24 2e 54 58 54 22 |CHANGE_L|OG$.TXT"|
|000005a0| 20 6d 73 2d 64 6f 73 20 | 22 63 68 61 6e 67 65 6c | ms-dos |"changel|
|000005b0| 6f 22 20 22 43 68 61 6e | 67 65 4c 6f 67 22 5d 20 |o" "Chan|geLog"] |
|000005c0| 32 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 70 72 |2]] 2).(|fset 'pr|
|000005d0| 6f 6d 70 74 2d 66 6f 72 | 2d 63 68 61 6e 67 65 2d |ompt-for|-change-|
|000005e0| 6c 6f 67 2d 6e 61 6d 65 | 20 23 5b 6e 69 6c 20 22 |log-name| #[nil "|
|000005f0| c0 20 19 c2 c3 c4 c5 09 | 5c 22 c6 09 23 21 29 87 |. ......|\"..#!).|
|00000600| 22 20 5b 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 6e 61 |" [chang|e-log-na|
|00000610| 6d 65 20 64 65 66 61 75 | 6c 74 20 65 78 70 61 6e |me defau|lt expan|
|00000620| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 72 65 61 64 |d-file-n|ame read|
|00000630| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 6f 72 6d 61 |-file-na|me forma|
|00000640| 74 20 22 4c 6f 67 20 66 | 69 6c 65 20 28 64 65 66 |t "Log f|ile (def|
|00000650| 61 75 6c 74 20 25 73 29 | 3a 20 22 20 6e 69 6c 5d |ault %s)|: " nil]|
|00000660| 20 35 20 22 5c 0a 50 72 | 6f 6d 70 74 20 66 6f 72 | 5 "\.Pr|ompt for|
|00000670| 20 61 20 63 68 61 6e 67 | 65 20 6c 6f 67 20 6e 61 | a chang|e log na|
|00000680| 6d 65 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 66 69 |me."]).(|fset 'fi|
|00000690| 6e 64 2d 63 68 61 6e 67 | 65 2d 6c 6f 67 20 23 5b |nd-chang|e-log #[|
|000006a0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 6c 65 2d |(&option|al file-|
|000006b0| 6e 61 6d 65 29 20 22 08 | ac e5 09 89 10 ac e0 5c |name) ".|.......\|
|000006c0| 6e ab 87 c3 c4 5c 6e 21 | 21 ae 81 0d 10 c6 08 21 |n....\n!|!......!|
|000006d0| ab 86 c7 c8 20 08 5c 22 | 10 c4 08 21 10 c7 08 21 |.... .\"|...!...!|
|000006e0| 89 10 c9 1e 5c 6e 1e 0b | cc 0e 0b 21 ac a5 cd 0e |....\n..|...!....|
|000006f0| 0b 21 ac 9f c3 ce c3 0e | 0b 21 21 21 16 5c 6e c3 |.!......|.!!!.\n.|
|00000700| 0e 0b 21 0e 5c 6e 98 ac | 8c c7 cf c8 20 21 0e 5c |..!.\n..|.... !.\|
|00000710| 6e 5c 22 16 0b aa 55 cc | 0e 0b 21 ac 86 cd 0e 0b |n\"...U.|..!.....|
|00000720| 21 ab 83 0e 0b 10 2a d0 | c1 21 08 4c 88 08 87 22 |!.....*.|.!.L..."|
|00000730| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 20 63 68 61 6e | [file-n|ame chan|
|00000740| 67 65 2d 6c 6f 67 2d 64 | 65 66 61 75 6c 74 2d 6e |ge-log-d|efault-n|
|00000750| 61 6d 65 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ame buff|er-file-|
|00000760| 6e 61 6d 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |name fil|e-name-d|
|00000770| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 2d 63 68 |irectory| file-ch|
|00000780| 61 73 65 2d 6c 69 6e 6b | 73 20 64 65 66 61 75 6c |ase-link|s defaul|
|00000790| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 66 69 6c 65 |t-direct|ory file|
|000007a0| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 65 78 70 |-directo|ry-p exp|
|000007b0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 63 68 |and-file|-name ch|
|000007c0| 61 6e 67 65 2d 6c 6f 67 | 2d 6e 61 6d 65 20 6e 69 |ange-log|-name ni|
|000007d0| 6c 20 70 61 72 65 6e 74 | 2d 64 69 72 20 66 69 6c |l parent|-dir fil|
|000007e0| 65 31 20 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |e1 get-f|ile-buff|
|000007f0| 65 72 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |er file-|exists-p|
|00000800| 20 64 69 72 65 63 74 6f | 72 79 2d 66 69 6c 65 2d | directo|ry-file-|
|00000810| 6e 61 6d 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |name fil|e-name-n|
|00000820| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 6d 61 6b 65 |ondirect|ory make|
|00000830| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 5d |-local-v|ariable]|
|00000840| 20 35 20 22 5c 0a 46 69 | 6e 64 20 61 20 63 68 61 | 5 "\.Fi|nd a cha|
|00000850| 6e 67 65 20 6c 6f 67 20 | 66 69 6c 65 20 66 6f 72 |nge log |file for|
|00000860| 20 5c 5c 5b 61 64 64 2d | 63 68 61 6e 67 65 2d 6c | \\[add-|change-l|
|00000870| 6f 67 2d 65 6e 74 72 79 | 5d 20 61 6e 64 20 72 65 |og-entry|] and re|
|00000880| 74 75 72 6e 20 74 68 65 | 20 6e 61 6d 65 2e 0a 4f |turn the| name..O|
|00000890| 70 74 69 6f 6e 61 6c 20 | 61 72 67 20 46 49 4c 45 |ptional |arg FILE|
|000008a0| 2d 4e 41 4d 45 20 73 70 | 65 63 69 66 69 65 73 20 |-NAME sp|ecifies |
|000008b0| 74 68 65 20 66 69 6c 65 | 20 74 6f 20 75 73 65 2e |the file| to use.|
|000008c0| 0a 49 66 20 46 49 4c 45 | 2d 4e 41 4d 45 20 69 73 |.If FILE|-NAME is|
|000008d0| 20 6e 69 6c 2c 20 75 73 | 65 20 74 68 65 20 76 61 | nil, us|e the va|
|000008e0| 6c 75 65 20 6f 66 20 60 | 63 68 61 6e 67 65 2d 6c |lue of `|change-l|
|000008f0| 6f 67 2d 64 65 66 61 75 | 6c 74 2d 6e 61 6d 65 27 |og-defau|lt-name'|
|00000900| 20 69 66 20 6e 6f 6e 2d | 6e 69 6c 2e 0a 4f 74 68 | if non-|nil..Oth|
|00000910| 65 72 77 69 73 65 2c 20 | 73 65 61 72 63 68 20 69 |erwise, |search i|
|00000920| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 69 |n the cu|rrent di|
|00000930| 72 65 63 74 6f 72 79 20 | 61 6e 64 20 69 74 73 20 |rectory |and its |
|00000940| 73 75 63 63 65 73 73 69 | 76 65 20 70 61 72 65 6e |successi|ve paren|
|00000950| 74 73 0a 66 6f 72 20 61 | 20 66 69 6c 65 20 6e 61 |ts.for a| file na|
|00000960| 6d 65 64 20 60 43 68 61 | 6e 67 65 4c 6f 67 27 20 |med `Cha|ngeLog' |
|00000970| 28 6f 72 20 77 68 61 74 | 65 76 65 72 20 77 65 20 |(or what|ever we |
|00000980| 75 73 65 20 6f 6e 20 74 | 68 69 73 20 6f 70 65 72 |use on t|his oper|
|00000990| 61 74 69 6e 67 20 73 79 | 73 74 65 6d 29 2e 0a 0a |ating sy|stem)...|
|000009a0| 4f 6e 63 65 20 61 20 66 | 69 6c 65 20 69 73 20 66 |Once a f|ile is f|
|000009b0| 6f 75 6e 64 2c 20 60 63 | 68 61 6e 67 65 2d 6c 6f |ound, `c|hange-lo|
|000009c0| 67 2d 64 65 66 61 75 6c | 74 2d 6e 61 6d 65 27 20 |g-defaul|t-name' |
|000009d0| 69 73 20 73 65 74 20 6c | 6f 63 61 6c 6c 79 20 69 |is set l|ocally i|
|000009e0| 6e 20 74 68 65 0a 63 75 | 72 72 65 6e 74 20 62 75 |n the.cu|rrent bu|
|000009f0| 66 66 65 72 20 74 6f 20 | 74 68 65 20 63 6f 6d 70 |ffer to |the comp|
|00000a00| 6c 65 74 65 20 66 69 6c | 65 20 6e 61 6d 65 2e 22 |lete fil|e name."|
|00000a10| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 64 2d 63 68 |]).(fset| 'add-ch|
|00000a20| 61 6e 67 65 2d 6c 6f 67 | 2d 65 6e 74 72 79 20 23 |ange-log|-entry #|
|00000a30| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 77 68 6f 61 |[(&optio|nal whoa|
|00000a40| 6d 69 20 66 69 6c 65 2d | 6e 61 6d 65 20 6f 74 68 |mi file-|name oth|
|00000a50| 65 72 2d 77 69 6e 64 6f | 77 20 6e 65 77 2d 65 6e |er-windo|w new-en|
|00000a60| 74 72 79 29 20 22 08 ab | 8a c1 c2 0b 5c 22 13 c1 |try) "..|....\"..|
|00000a70| c4 0d 5c 22 15 0e 06 ae | 81 c7 20 c8 89 1e 09 1e |..\"....|.. .....|
|00000a80| 5c 6e 1e 0b cc cd 0e 0e | 21 21 16 0e 0e 0f ab a3 |\n......|!!......|
|00000a90| 0e 0f 0e 0e 98 ac 9c d0 | d1 d2 d3 0e 0e 21 21 50 |........|.....!!P|
|00000aa0| 0e 0f 5c 22 ab 88 0e 0f | d4 95 c8 4f aa 84 d5 0e |..\"....|...O....|
|00000ab0| 0f 21 16 09 0e 16 ab 8e | 0e 0e 0e 0f 9a ac 87 d7 |.!......|........|
|00000ac0| 0e 0e 21 88 aa 85 d8 0e | 0e 21 88 d9 20 88 65 62 |..!.....|.!.. .eb|
|00000ad0| 88 da d2 db 20 d4 dc 4f | 21 dd d2 0b 21 de d2 0d |.... ..O|!...!...|
|00000ae0| 21 b0 05 21 ab 85 df 79 | 88 aa 8a db 20 e0 0b de |!..!...y|.... ...|
|00000af0| 0d e1 b1 06 88 da e2 21 | ab 86 e3 c8 77 88 aa 84 |.......!|....w...|
|00000b00| e4 df 21 88 60 16 5c 6e | 65 62 88 e5 e6 0e 5c 6e |..!.`.\n|eb....\n|
|00000b10| e7 23 ab 8a 0e 09 ab f1 | 0e 09 63 88 aa eb 0e 28 |.#......|..c....(|
|00000b20| ac b4 e5 d2 e9 0e 09 50 | 21 ea 50 0e 5c 6e e7 23 |.......P|!.P.\n.#|
|00000b30| ab a5 e5 eb 21 88 d4 79 | 88 6d ac 90 da ec 21 ab |....!..y|.m....!.|
|00000b40| 8b 60 8a df 79 88 60 29 | 7c 88 aa 6d ed 63 88 ee |.`..y.`)||..m.c..|
|00000b50| 79 88 ef 20 88 aa b3 df | 79 88 da f0 21 ab 85 df |y.. ....|y...!...|
|00000b60| 79 88 aa 76 6d ac 90 da | ec 21 ab 8b 60 8a df 79 |y..vm...|.!..`..y|
|00000b70| 88 60 29 7c 88 aa 6d f1 | 63 88 ee 79 88 0e 32 6a |.`)|..m.|c..y..2j|
|00000b80| 88 e9 0e 09 ae 81 f3 b1 | 02 88 0e 0b ab 99 d9 20 |........|....... |
|00000b90| 88 8a d4 79 88 da f4 21 | 29 ab 83 f3 aa 81 f5 f6 |...y...!|).......|
|00000ba0| 0e 0b f7 b1 04 aa 8d 8a | d4 79 88 da f8 21 29 3f |........|.y...!)?|
|00000bb0| ad 82 f9 63 2b 87 22 20 | 5b 77 68 6f 61 6d 69 20 |...c+." |[whoami |
|00000bc0| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 46 75 6c |read-str|ing "Ful|
|00000bd0| 6c 20 6e 61 6d 65 3a 20 | 22 20 61 64 64 2d 6c 6f |l name: |" add-lo|
|00000be0| 67 2d 66 75 6c 6c 2d 6e | 61 6d 65 20 22 4d 61 69 |g-full-n|ame "Mai|
|00000bf0| 6c 69 6e 67 20 61 64 64 | 72 65 73 73 3a 20 22 20 |ling add|ress: " |
|00000c00| 61 64 64 2d 6c 6f 67 2d | 6d 61 69 6c 69 6e 67 2d |add-log-|mailing-|
|00000c10| 61 64 64 72 65 73 73 20 | 61 64 64 2d 6c 6f 67 2d |address |add-log-|
|00000c20| 63 75 72 72 65 6e 74 2d | 64 65 66 75 6e 2d 66 75 |current-|defun-fu|
|00000c30| 6e 63 74 69 6f 6e 20 61 | 64 64 2d 6c 6f 67 2d 63 |nction a|dd-log-c|
|00000c40| 75 72 72 65 6e 74 2d 64 | 65 66 75 6e 20 6e 69 6c |urrent-d|efun nil|
|00000c50| 20 65 6e 74 72 79 20 70 | 61 72 61 67 72 61 70 68 | entry p|aragraph|
|00000c60| 2d 65 6e 64 20 64 65 66 | 75 6e 20 65 78 70 61 6e |-end def|un expan|
|00000c70| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6e 64 |d-file-n|ame find|
|00000c80| 2d 63 68 61 6e 67 65 2d | 6c 6f 67 20 66 69 6c 65 |-change-|log file|
|00000c90| 2d 6e 61 6d 65 20 62 75 | 66 66 65 72 2d 66 69 6c |-name bu|ffer-fil|
|00000ca0| 65 2d 6e 61 6d 65 20 73 | 74 72 69 6e 67 2d 6d 61 |e-name s|tring-ma|
|00000cb0| 74 63 68 20 22 5e 22 20 | 72 65 67 65 78 70 2d 71 |tch "^" |regexp-q|
|00000cc0| 75 6f 74 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |uote fil|e-name-d|
|00000cd0| 69 72 65 63 74 6f 72 79 | 20 30 20 66 69 6c 65 2d |irectory| 0 file-|
|00000ce0| 6e 61 6d 65 2d 6e 6f 6e | 64 69 72 65 63 74 6f 72 |name-non|director|
|00000cf0| 79 20 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 66 |y other-|window f|
|00000d00| 69 6e 64 2d 66 69 6c 65 | 2d 6f 74 68 65 72 2d 77 |ind-file|-other-w|
|00000d10| 69 6e 64 6f 77 20 66 69 | 6e 64 2d 66 69 6c 65 20 |indow fi|nd-file |
|00000d20| 75 6e 64 6f 2d 62 6f 75 | 6e 64 61 72 79 20 6c 6f |undo-bou|ndary lo|
|00000d30| 6f 6b 69 6e 67 2d 61 74 | 20 63 75 72 72 65 6e 74 |oking-at| current|
|00000d40| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 31 30 20 |-time-st|ring 10 |
|00000d50| 22 2e 2a 20 22 20 22 20 | 20 3c 22 20 31 20 22 20 |".* " " | <" 1 " |
|00000d60| 20 22 20 22 3e 5c 6e 5c | 6e 22 20 22 5c 6e 2a 5b | " ">\n\|n" "\n*[|
|00000d70| 5e 5c 6e 2a 20 09 5d 22 | 20 22 5c 6e 22 20 66 6f |^\n* .]"| "\n" fo|
|00000d80| 72 77 61 72 64 2d 70 61 | 72 61 67 72 61 70 68 20 |rward-pa|ragraph |
|00000d90| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000da0| 64 20 22 5e 5c 5c 73 20 | 2a 5c 5c 2a 5c 5c 73 20 |d "^\\s |*\\*\\s |
|00000db0| 2a 24 22 20 74 20 6e 65 | 77 2d 65 6e 74 72 79 20 |*$" t ne|w-entry |
|00000dc0| 22 2a 20 22 20 22 5c 5c | 28 5c 5c 73 20 5c 5c 7c |"* " "\\|(\\s \\||
|00000dd0| 5b 28 29 2c 3a 5d 5c 5c | 29 22 20 22 5e 5c 5c 73 |[(),:]\\|)" "^\\s|
|00000de0| 20 2a 24 5c 5c 7c 5e 5c | 5c 73 20 5c 5c 2a 22 20 | *$\\|^\|\s \\*" |
|00000df0| 22 5e 5c 5c 73 20 2a 24 | 22 20 22 5c 6e 5c 6e 22 |"^\\s *$|" "\n\n"|
|00000e00| 20 2d 32 20 69 6e 64 65 | 6e 74 2d 72 65 6c 61 74 | -2 inde|nt-relat|
|00000e10| 69 76 65 2d 6d 61 79 62 | 65 20 22 5c 5c 73 57 22 |ive-mayb|e "\\sW"|
|00000e20| 20 22 5c 6e 5c 6e 5c 6e | 22 20 6c 65 66 74 2d 6d | "\n\n\n|" left-m|
|00000e30| 61 72 67 69 6e 20 22 22 | 20 22 5c 5c 73 20 2a 24 |argin ""| "\\s *$|
|00000e40| 22 20 22 20 22 20 22 28 | 22 20 22 29 3a 20 22 20 |" " " "(|" "): " |
|00000e50| 22 5c 5c 73 20 2a 5c 5c | 28 5c 5c 2a 5c 5c 73 20 |"\\s *\\|(\\*\\s |
|00000e60| 2a 5c 5c 29 3f 24 22 20 | 22 3a 20 22 5d 20 37 20 |*\\)?$" |": "] 7 |
|00000e70| 22 5c 0a 46 69 6e 64 20 | 63 68 61 6e 67 65 20 6c |"\.Find |change l|
|00000e80| 6f 67 20 66 69 6c 65 20 | 61 6e 64 20 61 64 64 20 |og file |and add |
|00000e90| 61 6e 20 65 6e 74 72 79 | 20 66 6f 72 20 74 6f 64 |an entry| for tod|
|00000ea0| 61 79 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |ay..Opti|onal arg|
|00000eb0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 70 72 | (intera|ctive pr|
|00000ec0| 65 66 69 78 29 20 6e 6f | 6e 2d 6e 69 6c 20 6d 65 |efix) no|n-nil me|
|00000ed0| 61 6e 73 20 70 72 6f 6d | 70 74 20 66 6f 72 20 75 |ans prom|pt for u|
|00000ee0| 73 65 72 20 6e 61 6d 65 | 20 61 6e 64 20 73 69 74 |ser name| and sit|
|00000ef0| 65 2e 0a 53 65 63 6f 6e | 64 20 61 72 67 20 69 73 |e..Secon|d arg is|
|00000f00| 20 66 69 6c 65 20 6e 61 | 6d 65 20 6f 66 20 63 68 | file na|me of ch|
|00000f10| 61 6e 67 65 20 6c 6f 67 | 2e 20 20 49 66 20 6e 69 |ange log|.  If ni|
|00000f20| 6c 2c 20 75 73 65 73 20 | 60 63 68 61 6e 67 65 2d |l, uses |`change-|
|00000f30| 6c 6f 67 2d 64 65 66 61 | 75 6c 74 2d 6e 61 6d 65 |log-defa|ult-name|
|00000f40| 27 2e 0a 54 68 69 72 64 | 20 61 72 67 20 4f 54 48 |'..Third| arg OTH|
|00000f50| 45 52 2d 57 49 4e 44 4f | 57 20 6e 6f 6e 2d 6e 69 |ER-WINDO|W non-ni|
|00000f60| 6c 20 6d 65 61 6e 73 20 | 76 69 73 69 74 20 69 6e |l means |visit in|
|00000f70| 20 6f 74 68 65 72 20 77 | 69 6e 64 6f 77 2e 0a 46 | other w|indow..F|
|00000f80| 6f 75 72 74 68 20 61 72 | 67 20 4e 45 57 2d 45 4e |ourth ar|g NEW-EN|
|00000f90| 54 52 59 20 6e 6f 6e 2d | 6e 69 6c 20 6d 65 61 6e |TRY non-|nil mean|
|00000fa0| 73 20 61 6c 77 61 79 73 | 20 63 72 65 61 74 65 20 |s always| create |
|00000fb0| 61 20 6e 65 77 20 65 6e | 74 72 79 20 61 74 20 74 |a new en|try at t|
|00000fc0| 68 65 20 66 72 6f 6e 74 | 3b 0a 6e 65 76 65 72 20 |he front|;.never |
|00000fd0| 61 70 70 65 6e 64 20 74 | 6f 20 61 6e 20 65 78 69 |append t|o an exi|
|00000fe0| 73 74 69 6e 67 20 65 6e | 74 72 79 2e 22 20 28 62 |sting en|try." (b|
|00000ff0| 79 74 65 2d 63 6f 64 65 | 20 22 08 c1 20 44 87 22 |yte-code| ".. D."|
|00001000| 20 5b 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 | [curren|t-prefix|
|00001010| 2d 61 72 67 20 70 72 6f | 6d 70 74 2d 66 6f 72 2d |-arg pro|mpt-for-|
|00001020| 63 68 61 6e 67 65 2d 6c | 6f 67 2d 6e 61 6d 65 5d |change-l|og-name]|
|00001030| 20 32 29 5d 29 0a 28 66 | 73 65 74 20 27 61 64 64 | 2)]).(f|set 'add|
|00001040| 2d 63 68 61 6e 67 65 2d | 6c 6f 67 2d 65 6e 74 72 |-change-|log-entr|
|00001050| 79 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 23 |y-other-|window #|
|00001060| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 77 68 6f 61 |[(&optio|nal whoa|
|00001070| 6d 69 20 66 69 6c 65 2d | 6e 61 6d 65 29 20 22 c0 |mi file-|name) ".|
|00001080| 09 5c 6e c3 23 87 22 20 | 5b 61 64 64 2d 63 68 61 |.\n.#." |[add-cha|
|00001090| 6e 67 65 2d 6c 6f 67 2d | 65 6e 74 72 79 20 77 68 |nge-log-|entry wh|
|000010a0| 6f 61 6d 69 20 66 69 6c | 65 2d 6e 61 6d 65 20 74 |oami fil|e-name t|
|000010b0| 5d 20 34 20 22 5c 0a 46 | 69 6e 64 20 63 68 61 6e |] 4 "\.F|ind chan|
|000010c0| 67 65 20 6c 6f 67 20 66 | 69 6c 65 20 69 6e 20 6f |ge log f|ile in o|
|000010d0| 74 68 65 72 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |ther win|dow and |
|000010e0| 61 64 64 20 61 6e 20 65 | 6e 74 72 79 20 66 6f 72 |add an e|ntry for|
|000010f0| 20 74 6f 64 61 79 2e 0a | 4f 70 74 69 6f 6e 61 6c | today..|Optional|
|00001100| 20 61 72 67 20 28 69 6e | 74 65 72 61 63 74 69 76 | arg (in|teractiv|
|00001110| 65 20 70 72 65 66 69 78 | 29 20 6e 6f 6e 2d 6e 69 |e prefix|) non-ni|
|00001120| 6c 20 6d 65 61 6e 73 20 | 70 72 6f 6d 70 74 20 66 |l means |prompt f|
|00001130| 6f 72 20 75 73 65 72 20 | 6e 61 6d 65 20 61 6e 64 |or user |name and|
|00001140| 20 73 69 74 65 2e 0a 53 | 65 63 6f 6e 64 20 61 72 | site..S|econd ar|
|00001150| 67 20 69 73 20 66 69 6c | 65 20 6e 61 6d 65 20 6f |g is fil|e name o|
|00001160| 66 20 63 68 61 6e 67 65 | 20 6c 6f 67 2e 20 20 49 |f change| log.  I|
|00001170| 66 20 6e 69 6c 2c 20 75 | 73 65 73 20 60 63 68 61 |f nil, u|ses `cha|
|00001180| 6e 67 65 2d 6c 6f 67 2d | 64 65 66 61 75 6c 74 2d |nge-log-|default-|
|00001190| 6e 61 6d 65 27 2e 22 20 | 28 62 79 74 65 2d 63 6f |name'." |(byte-co|
|000011a0| 64 65 20 22 08 ad 84 08 | c1 20 44 87 22 20 5b 63 |de "....|. D." [c|
|000011b0| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|000011c0| 67 20 70 72 6f 6d 70 74 | 2d 66 6f 72 2d 63 68 61 |g prompt|-for-cha|
|000011d0| 6e 67 65 2d 6c 6f 67 2d | 6e 61 6d 65 5d 20 32 29 |nge-log-|name] 2)|
|000011e0| 5d 29 0a 28 64 65 66 76 | 61 72 20 63 68 61 6e 67 |]).(defv|ar chang|
|000011f0| 65 2d 6c 6f 67 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |e-log-mo|de-map n|
|00001200| 69 6c 20 22 5c 0a 4b 65 | 79 6d 61 70 20 66 6f 72 |il "\.Ke|ymap for|
|00001210| 20 43 68 61 6e 67 65 20 | 4c 6f 67 20 6d 61 6a 6f | Change |Log majo|
|00001220| 72 20 6d 6f 64 65 2e 22 | 29 0a 28 62 79 74 65 2d |r mode."|).(byte-|
|00001230| 63 6f 64 65 20 22 08 ac | 8e c1 20 10 c2 08 c0 5c |code "..|.. ....\|
|00001240| 22 88 c3 08 c4 c5 23 88 | c1 87 22 20 5b 63 68 61 |".....#.|.." [cha|
|00001250| 6e 67 65 2d 6c 6f 67 2d | 6d 6f 64 65 2d 6d 61 70 |nge-log-|mode-map|
|00001260| 20 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 | make-sp|arse-key|
|00001270| 6d 61 70 20 73 65 74 2d | 6b 65 79 6d 61 70 2d 6e |map set-|keymap-n|
|00001280| 61 6d 65 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |ame defi|ne-key "|
|00001290| f1 22 20 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 66 69 |." chang|e-log-fi|
|000012a0| 6c 6c 2d 70 61 72 61 67 | 72 61 70 68 5d 20 34 29 |ll-parag|raph] 4)|
|000012b0| 0a 28 66 73 65 74 20 27 | 63 68 61 6e 67 65 2d 6c |.(fset '|change-l|
|000012c0| 6f 67 2d 6d 6f 64 65 20 | 23 5b 6e 69 6c 20 22 c0 |og-mode |#[nil ".|
|000012d0| 20 88 c1 20 88 c2 13 c4 | 15 c6 16 07 c8 16 09 ca | .. ....|........|
|000012e0| 0e 0b 21 88 cc cd 21 ce | 4c 88 cc cf 21 d0 4c 88 |..!...!.|L...!.L.|
|000012f0| cc d1 21 d2 4c 88 cc d3 | 21 d4 4c 88 cc d5 21 d6 |..!.L...|!.L...!.|
|00001300| 4c 88 d7 d8 21 87 22 20 | 5b 6b 69 6c 6c 2d 61 6c |L...!." |[kill-al|
|00001310| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|00001320| 73 20 69 6e 64 65 6e 74 | 65 64 2d 74 65 78 74 2d |s indent|ed-text-|
|00001330| 6d 6f 64 65 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |mode cha|nge-log-|
|00001340| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|00001350| 22 43 68 61 6e 67 65 20 | 4c 6f 67 22 20 6d 6f 64 |"Change |Log" mod|
|00001360| 65 2d 6e 61 6d 65 20 38 | 20 6c 65 66 74 2d 6d 61 |e-name 8| left-ma|
|00001370| 72 67 69 6e 20 37 34 20 | 66 69 6c 6c 2d 63 6f 6c |rgin 74 |fill-col|
|00001380| 75 6d 6e 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |umn use-|local-ma|
|00001390| 70 20 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 6d 6f 64 |p change|-log-mod|
|000013a0| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |e-map ma|ke-local|
|000013b0| 2d 76 61 72 69 61 62 6c | 65 20 70 61 72 61 67 72 |-variabl|e paragr|
|000013c0| 61 70 68 2d 73 74 61 72 | 74 20 22 5e 5c 5c 73 20 |aph-star|t "^\\s |
|000013d0| 2a 24 5c 5c 7c 5e 0c 22 | 20 70 61 72 61 67 72 61 |*$\\|^."| paragra|
|000013e0| 70 68 2d 73 65 70 61 72 | 61 74 65 20 22 5e 5c 5c |ph-separ|ate "^\\|
|000013f0| 73 20 2a 24 5c 5c 7c 5e | 0c 5c 5c 7c 5e 5c 5c 73 |s *$\\|^|.\\|^\\s|
|00001400| 77 22 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 |w" page-|delimite|
|00001410| 72 20 22 5e 5c 5c 3c 5c | 5c 7c 5e 0c 22 20 76 65 |r "^\\<\|\|^." ve|
|00001420| 72 73 69 6f 6e 2d 63 6f | 6e 74 72 6f 6c 20 6e 65 |rsion-co|ntrol ne|
|00001430| 76 65 72 20 61 64 61 70 | 74 69 76 65 2d 66 69 6c |ver adap|tive-fil|
|00001440| 6c 2d 72 65 67 65 78 70 | 20 22 5c 5c 73 20 2a 22 |l-regexp| "\\s *"|
|00001450| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 63 68 61 6e 67 | run-hoo|ks chang|
|00001460| 65 2d 6c 6f 67 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d |e-log-mo|de-hook]|
|00001470| 20 32 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 | 2 "\.Ma|jor mode|
|00001480| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 63 68 61 | for edi|ting cha|
|00001490| 6e 67 65 20 6c 6f 67 73 | 3b 20 6c 69 6b 65 20 49 |nge logs|; like I|
|000014a0| 6e 64 65 6e 74 65 64 20 | 54 65 78 74 20 4d 6f 64 |ndented |Text Mod|
|000014b0| 65 2e 0a 50 72 65 76 65 | 6e 74 73 20 6e 75 6d 65 |e..Preve|nts nume|
|000014c0| 72 69 63 20 62 61 63 6b | 75 70 73 20 61 6e 64 20 |ric back|ups and |
|000014d0| 73 65 74 73 20 60 6c 65 | 66 74 2d 6d 61 72 67 69 |sets `le|ft-margi|
|000014e0| 6e 27 20 74 6f 20 38 20 | 61 6e 64 20 60 66 69 6c |n' to 8 |and `fil|
|000014f0| 6c 2d 63 6f 6c 75 6d 6e | 27 20 74 6f 20 37 34 2e |l-column|' to 74.|
|00001500| 0a 4e 65 77 20 6c 6f 67 | 20 65 6e 74 72 69 65 73 |.New log| entries|
|00001510| 20 61 72 65 20 75 73 75 | 61 6c 6c 79 20 6d 61 64 | are usu|ally mad|
|00001520| 65 20 77 69 74 68 20 5c | 5c 5b 61 64 64 2d 63 68 |e with \|\[add-ch|
|00001530| 61 6e 67 65 2d 6c 6f 67 | 2d 65 6e 74 72 79 5d 20 |ange-log|-entry] |
|00001540| 6f 72 20 5c 5c 5b 61 64 | 64 2d 63 68 61 6e 67 65 |or \\[ad|d-change|
|00001550| 2d 6c 6f 67 2d 65 6e 74 | 72 79 2d 6f 74 68 65 72 |-log-ent|ry-other|
|00001560| 2d 77 69 6e 64 6f 77 5d | 2e 0a 45 61 63 68 20 65 |-window]|..Each e|
|00001570| 6e 74 72 79 20 62 65 68 | 61 76 65 73 20 61 73 20 |ntry beh|aves as |
|00001580| 61 20 70 61 72 61 67 72 | 61 70 68 2c 20 61 6e 64 |a paragr|aph, and|
|00001590| 20 74 68 65 20 65 6e 74 | 72 69 65 73 20 66 6f 72 | the ent|ries for|
|000015a0| 20 6f 6e 65 20 64 61 79 | 20 61 73 20 61 20 70 61 | one day| as a pa|
|000015b0| 67 65 2e 0a 52 75 6e 73 | 20 60 63 68 61 6e 67 65 |ge..Runs| `change|
|000015c0| 2d 6c 6f 67 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 27 2e |-log-mod|e-hook'.|
|000015d0| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 63 |" nil]).|(fset 'c|
|000015e0| 68 61 6e 67 65 2d 6c 6f | 67 2d 66 69 6c 6c 2d 70 |hange-lo|g-fill-p|
|000015f0| 61 72 61 67 72 61 70 68 | 20 23 5b 28 26 6f 70 74 |aragraph| #[(&opt|
|00001600| 69 6f 6e 61 6c 20 6a 75 | 73 74 69 66 79 29 20 22 |ional ju|stify) "|
|00001610| 08 c1 50 5c 6e c1 50 1a | 18 c3 0c 21 2a 87 22 20 |..P\n.P.|...!*." |
|00001620| 5b 70 61 72 61 67 72 61 | 70 68 2d 73 65 70 61 72 |[paragra|ph-separ|
|00001630| 61 74 65 20 22 5c 5c 7c | 5e 5c 5c 73 20 2a 5c 5c |ate "\\||^\\s *\\|
|00001640| 73 28 22 20 70 61 72 61 | 67 72 61 70 68 2d 73 74 |s(" para|graph-st|
|00001650| 61 72 74 20 66 69 6c 6c | 2d 70 61 72 61 67 72 61 |art fill|-paragra|
|00001660| 70 68 20 6a 75 73 74 69 | 66 79 5d 20 33 20 22 5c |ph justi|fy] 3 "\|
|00001670| 0a 46 69 6c 6c 20 74 68 | 65 20 70 61 72 61 67 72 |.Fill th|e paragr|
|00001680| 61 70 68 2c 20 62 75 74 | 20 70 72 65 73 65 72 76 |aph, but| preserv|
|00001690| 65 20 6f 70 65 6e 20 70 | 61 72 65 6e 74 68 65 73 |e open p|arenthes|
|000016a0| 65 73 20 61 74 20 62 65 | 67 69 6e 6e 69 6e 67 20 |es at be|ginning |
|000016b0| 6f 66 20 6c 69 6e 65 73 | 2e 0a 50 72 65 66 69 78 |of lines|..Prefix|
|000016c0| 20 61 72 67 20 6d 65 61 | 6e 73 20 6a 75 73 74 69 | arg mea|ns justi|
|000016d0| 66 79 20 61 73 20 77 65 | 6c 6c 2e 22 20 22 50 22 |fy as we|ll." "P"|
|000016e0| 5d 29 0a 28 64 65 66 76 | 61 72 20 61 64 64 2d 6c |]).(defv|ar add-l|
|000016f0| 6f 67 2d 63 75 72 72 65 | 6e 74 2d 64 65 66 75 6e |og-curre|nt-defun|
|00001700| 2d 68 65 61 64 65 72 2d | 72 65 67 65 78 70 20 22 |-header-|regexp "|
|00001710| 5e 5c 5c 28 5b 41 2d 5a | 5d 5b 41 2d 5a 5f 20 5d |^\\([A-Z|][A-Z_ ]|
|00001720| 2a 5b 41 2d 5a 5f 5d 5c | 5c 7c 5b 2d 5f 61 2d 7a |*[A-Z_]\|\|[-_a-z|
|00001730| 41 2d 5a 5d 2b 5c 5c 29 | 5b 20 09 5d 2a 5b 3a 3d |A-Z]+\\)|[ .]*[:=|
|00001740| 5d 22 20 22 5c 0a 2a 48 | 65 75 72 69 73 74 69 63 |]" "\.*H|euristic|
|00001750| 20 72 65 67 65 78 70 20 | 75 73 65 64 20 62 79 20 | regexp |used by |
|00001760| 60 61 64 64 2d 6c 6f 67 | 2d 63 75 72 72 65 6e 74 |`add-log|-current|
|00001770| 2d 64 65 66 75 6e 27 20 | 66 6f 72 20 75 6e 6b 6e |-defun' |for unkn|
|00001780| 6f 77 6e 20 6d 61 6a 6f | 72 20 6d 6f 64 65 73 2e |own majo|r modes.|
|00001790| 22 29 0a 28 66 73 65 74 | 20 27 61 64 64 2d 6c 6f |").(fset| 'add-lo|
|000017a0| 67 2d 63 75 72 72 65 6e | 74 2d 64 65 66 75 6e 20 |g-curren|t-defun |
|000017b0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 8f 87 22 20 5b 6e |#[nil ".|...." [n|
|000017c0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 8a |il (byte|-code ".|
|000017d0| 60 18 09 c2 3e ab b6 6d | ac 83 c3 75 88 c4 20 88 |`...>..m|...u.. .|
|000017e0| c5 20 88 08 60 57 85 87 | 01 c6 c7 21 88 08 60 59 |. ..`W..|...!..`Y|
|000017f0| 85 87 01 c8 c9 21 ab 83 | c3 75 88 c6 c3 21 88 ca |.....!..|.u...!..|
|00001800| cb 77 88 60 c6 c3 21 88 | 60 7b 82 87 01 09 cc 3e |.w.`..!.|`{.....>|
|00001810| ab b9 8a cd 79 88 60 ce | 5a 66 cf 3d ab 85 c7 79 |....y.`.|Zf.=...y|
|00001820| 88 aa 73 c8 d0 21 29 ab | a2 cd 79 88 60 ce 5a 66 |..s..!).|..y.`.Zf|
|00001830| cf 3d ab 85 c7 79 88 aa | 73 d1 d2 21 88 d3 cb 77 |.=...y..|s..!...w|
|00001840| 88 60 c6 c3 21 88 60 7b | 82 87 01 09 d4 3e 83 16 |.`..!.`{|.....>..|
|00001850| 01 cd 79 88 c8 d5 21 ac | 85 c3 79 88 aa 76 6d ac |..y...!.|..y..vm.|
|00001860| 83 c3 75 88 c4 20 88 c5 | 20 88 08 60 57 85 87 01 |..u.. ..| ..`W...|
|00001870| d6 c3 21 88 cb 89 1e 17 | 1e 18 c7 79 88 6f ac 8a |..!.....|...y.o..|
|00001880| c8 d9 21 ab 85 c7 79 88 | aa 73 cb da db 8f ab 9f |..!...y.|.s......|
|00001890| 0e 17 62 88 dc c3 21 88 | 60 66 dd 55 ab 88 c6 c3 |..b...!.|`f.U....|
|000018a0| 21 88 de cb 77 88 60 c6 | c3 21 88 60 7b aa b3 60 |!...w.`.|.!.`{..`|
|000018b0| 16 18 cb df e0 8f ad aa | 8a 0e 18 62 88 6f ac 8f |........|...b.o..|
|000018c0| 8a c7 79 88 c8 e1 21 29 | ab 85 c7 79 88 aa 6e 08 |..y...!)|...y..n.|
|000018d0| 60 59 29 ad 8d 60 0e 18 | 56 ad 87 60 d6 c3 21 88 |`Y)..`..|V..`..!.|
|000018e0| 60 7b 2a aa f1 09 e2 3e | ab 94 e3 e4 cb e5 23 ad |`{*....>|......#.|
|000018f0| e5 cd 94 62 88 60 54 cb | 7f 88 60 7b aa d8 09 e6 |...b.`T.|..`{....|
|00001900| 3d ab 8e e3 e7 cb e5 23 | ad cc c3 94 c3 95 7b aa |=......#|......{.|
|00001910| c5 09 e8 3d ab aa e9 20 | 88 e5 1e 2a eb ec cb e5 |...=... |...*....|
|00001920| 23 ad 9a eb ed cb e5 23 | ab 89 c7 75 88 d3 cb 78 |#......#|...u...x|
|00001930| 88 aa 83 cb 7f 88 60 c6 | c7 21 88 60 7b 29 aa 96 |......`.|.!.`{)..|
|00001940| cb 1e 2a cb 7f 88 e3 0e | 2e 60 ef 5a e5 23 ad 85 |..*.....|.`.Z.#..|
|00001950| c3 94 c3 95 7b 29 2a 87 | 22 20 5b 6c 6f 63 61 74 |....{)*.|" [locat|
|00001960| 69 6f 6e 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 28 |ion majo|r-mode (|
|00001970| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 20 |emacs-li|sp-mode |
|00001980| 6c 69 73 70 2d 6d 6f 64 | 65 20 73 63 68 65 6d 65 |lisp-mod|e scheme|
|00001990| 2d 6d 6f 64 65 29 20 31 | 20 62 65 67 69 6e 6e 69 |-mode) 1| beginni|
|000019a0| 6e 67 2d 6f 66 2d 64 65 | 66 75 6e 20 65 6e 64 2d |ng-of-de|fun end-|
|000019b0| 6f 66 2d 64 65 66 75 6e | 20 66 6f 72 77 61 72 64 |of-defun| forward|
|000019c0| 2d 73 65 78 70 20 2d 31 | 20 6c 6f 6f 6b 69 6e 67 |-sexp -1| looking|
|000019d0| 2d 61 74 20 22 5c 5c 73 | 28 22 20 22 20 22 20 6e |-at "\\s|(" " " n|
|000019e0| 69 6c 20 28 63 2d 6d 6f | 64 65 20 63 2b 2b 2d 6d |il (c-mo|de c++-m|
|000019f0| 6f 64 65 20 63 2b 2b 2d | 63 2d 6d 6f 64 65 29 20 |ode c++-|c-mode) |
|00001a00| 30 20 32 20 39 32 20 22 | 5b 20 09 5d 2a 23 5b 20 |0 2 92 "|[ .]*#[ |
|00001a10| 09 5d 2a 64 65 66 69 6e | 65 5b 20 09 5d 22 20 73 |.]*defin|e[ .]" s|
|00001a20| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 64 |earch-fo|rward "d|
|00001a30| 65 66 69 6e 65 22 20 22 | 20 09 22 20 28 63 2d 6d |efine" "| ." (c-m|
|00001a40| 6f 64 65 20 63 2b 2b 2d | 6d 6f 64 65 20 63 2b 2b |ode c++-|mode c++|
|00001a50| 2d 63 2d 6d 6f 64 65 29 | 20 22 7b 5c 5c 7c 5c 5c |-c-mode)| "{\\|\\|
|00001a60| 28 5c 5c 73 20 2a 24 5c | 5c 29 22 20 62 61 63 6b |(\\s *$\|\)" back|
|00001a70| 77 61 72 64 2d 73 65 78 | 70 20 74 65 6d 20 62 65 |ward-sex|p tem be|
|00001a80| 67 20 22 5b 20 09 5c 6e | 5d 22 20 28 62 79 74 65 |g "[ .\n|]" (byte|
|00001a90| 2d 63 6f 64 65 20 22 8a | c0 7f 88 68 c1 55 ab 85 |-code ".|...h.U..|
|00001aa0| c2 7f 88 aa 76 c3 c4 21 | 88 c5 79 88 60 16 06 c7 |....v..!|..y.`...|
|00001ab0| c8 21 29 ad 85 0e 09 0e | 06 59 87 22 20 5b 6e 69 |.!).....|.Y." [ni|
|00001ac0| 6c 20 39 32 20 32 20 62 | 61 63 6b 77 61 72 64 2d |l 92 2 b|ackward-|
|00001ad0| 73 65 78 70 20 31 20 30 | 20 74 65 6d 20 6c 6f 6f |sexp 1 0| tem loo|
|00001ae0| 6b 69 6e 67 2d 61 74 20 | 22 44 45 46 55 4e 5c 5c |king-at |"DEFUN\\|
|00001af0| 62 22 20 6c 6f 63 61 74 | 69 6f 6e 5d 20 32 29 20 |b" locat|ion] 2) |
|00001b00| 28 28 65 72 72 6f 72 29 | 29 20 64 6f 77 6e 2d 6c |((error)|) down-l|
|00001b10| 69 73 74 20 33 34 20 22 | 20 2c 22 20 28 62 79 74 |ist 34 "| ," (byt|
|00001b20| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c2 c1 21 88 |e-code "|..!...!.|
|00001b30| c3 c4 78 88 c5 87 22 20 | 5b 64 6f 77 6e 2d 6c 69 |..x..." |[down-li|
|00001b40| 73 74 20 31 20 62 61 63 | 6b 77 61 72 64 2d 75 70 |st 1 bac|kward-up|
|00001b50| 2d 6c 69 73 74 20 22 20 | 09 22 20 6e 69 6c 20 74 |-list " |." nil t|
|00001b60| 5d 20 32 29 20 28 28 65 | 72 72 6f 72 29 29 20 22 |] 2) ((e|rror)) "|
|00001b70| 5b 5e 5c 6e 0c 5d 22 20 | 28 54 65 58 2d 6d 6f 64 |[^\n.]" |(TeX-mod|
|00001b80| 65 20 70 6c 61 69 6e 2d | 54 65 58 2d 6d 6f 64 65 |e plain-|TeX-mode|
|00001b90| 20 4c 61 54 65 58 2d 6d | 6f 64 65 20 70 6c 61 69 | LaTeX-m|ode plai|
|00001ba0| 6e 2d 74 65 78 2d 6d 6f | 64 65 20 6c 61 74 65 78 |n-tex-mo|de latex|
|00001bb0| 2d 6d 6f 64 65 29 20 72 | 65 2d 73 65 61 72 63 68 |-mode) r|e-search|
|00001bc0| 2d 62 61 63 6b 77 61 72 | 64 20 22 5c 5c 5c 5c 5c |-backwar|d "\\\\\|
|00001bd0| 5c 28 73 75 62 5c 5c 29 | 2a 5c 5c 28 73 65 63 74 |\(sub\\)|*\\(sect|
|00001be0| 69 6f 6e 5c 5c 7c 70 61 | 72 61 67 72 61 70 68 5c |ion\\|pa|ragraph\|
|00001bf0| 5c 7c 63 68 61 70 74 65 | 72 5c 5c 29 22 20 74 20 |\|chapte|r\\)" t |
|00001c00| 74 65 78 69 6e 66 6f 2d | 6d 6f 64 65 20 22 5e 40 |texinfo-|mode "^@|
|00001c10| 6e 6f 64 65 5b 20 09 5d | 2b 5c 5c 28 5b 5e 2c 5d |node[ .]|+\\([^,]|
|00001c20| 2b 5c 5c 29 2c 22 20 66 | 6f 72 74 72 61 6e 2d 6d |+\\)," f|ortran-m|
|00001c30| 6f 64 65 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |ode begi|nning-of|
|00001c40| 2d 66 6f 72 74 72 61 6e | 2d 73 75 62 70 72 6f 67 |-fortran|-subprog|
|00001c50| 72 61 6d 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |ram case|-fold-se|
|00001c60| 61 72 63 68 20 72 65 2d | 73 65 61 72 63 68 2d 66 |arch re-|search-f|
|00001c70| 6f 72 77 61 72 64 20 22 | 5e 5b 20 09 5d 2a 5c 5c |orward "|^[ .]*\\|
|00001c80| 28 70 72 6f 67 72 61 6d | 5c 5c 7c 73 75 62 72 6f |(program|\\|subro|
|00001c90| 75 74 69 6e 65 5c 5c 7c | 66 75 6e 63 74 69 6f 6e |utine\\||function|
|00001ca0| 5c 5c 7c 5b 20 09 61 2d | 7a 30 2d 39 2a 5d 2a 5b |\\|[ .a-|z0-9*]*[|
|00001cb0| 20 09 5d 2b 66 75 6e 63 | 74 69 6f 6e 5c 5c 29 22 | .]+func|tion\\)"|
|00001cc0| 20 22 5b 28 5c 6e 5d 22 | 20 61 64 64 2d 6c 6f 67 | "[(\n]"| add-log|
|00001cd0| 2d 63 75 72 72 65 6e 74 | 2d 64 65 66 75 6e 2d 68 |-current|-defun-h|
|00001ce0| 65 61 64 65 72 2d 72 65 | 67 65 78 70 20 31 30 30 |eader-re|gexp 100|
|00001cf0| 30 30 5d 20 34 29 20 28 | 28 65 72 72 6f 72 29 29 |00] 4) (|(error))|
|00001d00| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 6e 61 |] 3 "\.R|eturn na|
|00001d10| 6d 65 20 6f 66 20 66 75 | 6e 63 74 69 6f 6e 20 64 |me of fu|nction d|
|00001d20| 65 66 69 6e 69 74 69 6f | 6e 20 70 6f 69 6e 74 20 |efinitio|n point |
|00001d30| 69 73 20 69 6e 2c 20 6f | 72 20 6e 69 6c 2e 0a 0a |is in, o|r nil...|
|00001d40| 55 6e 64 65 72 73 74 61 | 6e 64 73 20 43 2c 20 4c |Understa|nds C, L|
|00001d50| 69 73 70 2c 20 4c 61 54 | 65 58 20 28 5c 22 66 75 |isp, LaT|eX (\"fu|
|00001d60| 6e 63 74 69 6f 6e 73 5c | 22 20 61 72 65 20 63 68 |nctions\|" are ch|
|00001d70| 61 70 74 65 72 73 2c 20 | 73 65 63 74 69 6f 6e 73 |apters, |sections|
|00001d80| 2c 20 2e 2e 2e 29 2c 0a | 54 65 78 69 6e 66 6f 20 |, ...),.|Texinfo |
|00001d90| 28 40 6e 6f 64 65 20 74 | 69 74 6c 65 73 29 2c 20 |(@node t|itles), |
|00001da0| 61 6e 64 20 46 6f 72 74 | 72 61 6e 2e 0a 0a 4f 74 |and Fort|ran...Ot|
|00001db0| 68 65 72 20 6d 6f 64 65 | 73 20 61 72 65 20 68 61 |her mode|s are ha|
|00001dc0| 6e 64 6c 65 64 20 62 79 | 20 61 20 68 65 75 72 69 |ndled by| a heuri|
|00001dd0| 73 74 69 63 20 74 68 61 | 74 20 6c 6f 6f 6b 73 20 |stic tha|t looks |
|00001de0| 69 6e 20 74 68 65 20 31 | 30 4b 20 62 65 66 6f 72 |in the 1|0K befor|
|00001df0| 65 0a 70 6f 69 6e 74 20 | 66 6f 72 20 75 70 70 65 |e.point |for uppe|
|00001e00| 72 63 61 73 65 20 68 65 | 61 64 69 6e 67 73 20 73 |rcase he|adings s|
|00001e10| 74 61 72 74 69 6e 67 20 | 69 6e 20 74 68 65 20 66 |tarting |in the f|
|00001e20| 69 72 73 74 20 63 6f 6c | 75 6d 6e 20 6f 72 0a 69 |irst col|umn or.i|
|00001e30| 64 65 6e 74 69 66 69 65 | 72 73 20 66 6f 6c 6c 6f |dentifie|rs follo|
|00001e40| 77 65 64 20 62 79 20 60 | 3a 27 20 6f 72 20 60 3d |wed by `|:' or `=|
|00001e50| 27 2c 20 73 65 65 20 76 | 61 72 69 61 62 6c 65 0a |', see v|ariable.|
|00001e60| 60 61 64 64 2d 6c 6f 67 | 2d 63 75 72 72 65 6e 74 |`add-log|-current|
|00001e70| 2d 64 65 66 75 6e 2d 68 | 65 61 64 65 72 2d 72 65 |-defun-h|eader-re|
|00001e80| 67 65 78 70 27 2e 0a 0a | 48 61 73 20 61 20 70 72 |gexp'...|Has a pr|
|00001e90| 65 66 65 72 65 6e 63 65 | 20 6f 66 20 6c 6f 6f 6b |eference| of look|
|00001ea0| 69 6e 67 20 62 61 63 6b | 77 61 72 64 73 2e 22 5d |ing back|wards."]|
|00001eb0| 29 0a 28 70 72 6f 76 69 | 64 65 20 27 61 64 64 2d |).(provi|de 'add-|
|00001ec0| 6c 6f 67 29 0a          |                         |log).   |        |
+--------+-------------------------+-------------------------+--------+--------+